Sub PROC2()
        Dim txt$
        Const pp As Integer = 1
        For i = 1 To np
            state1(i) = StartSt
            state2(i) = 0
        Next i

        state2(1) = ActiveSt
        state1(1) = 0
        Form4.TBstate11.Text = Str(Module2.state1(pp))
        Form4.Monitor()
        If trace_pp = 1 Then
            txt$ = " BackgroundWorker0  np" + Str(np) + " " + Str(npl(pp)) + " state" + Str(state1(pp))
            DISPLAY1(indd1, txt$)
        End If

        Methode_2_PP(pp)
        state2(pp) = FinishedSt

        For i = 1 To np
            Do
                Application.DoEvents()
            Loop Until state2(i) = FinishedSt
        Next i
        Form4.Monitor()

    End Sub